home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr44 / _xygraf.zip / CALENDAR.VEC < prev    next >
Text File  |  1995-03-02  |  2KB  |  109 lines
  1. ADDZOOM(1,1)
  2. /*PLAY("bird.vec")
  3. PLAY("reset.vec")
  4. ZOOM(0.3, 0.3)
  5. font("trip.chr")
  6. '       Parameters: left, top, year
  7. ' 0 if not visocose (1980 was)
  8. style(1,15)
  9. RECTANGLE(0,1200,2000, 2200)
  10. @CALENDAR(100, 1300, 1995, 0)
  11. */
  12. style(1, 15);
  13. fill(1);
  14. 'zoom(0.1, 0.05);
  15. rectangle(0, 0, 640, 480);
  16.  
  17. scroll(1800, 500);
  18. play("bird.vec");
  19. scroll(0, 500);
  20. zoom(0.35, 0.33);
  21.  
  22. color(BLACK);
  23. font("trip.chr");
  24. @calendar(80, 120, 1995, 0);
  25.  
  26. END
  27.  
  28. @CALENDAR(l, t, year, v)
  29. day = 7
  30. IF year = 1996 THEN day = 1 ENDIF
  31.     x = l: y = t + 15
  32.     FOR i = 1 TO 3
  33.         TEXT(x, y, "Mo")
  34.         y = y + 30
  35.         TEXT(x, y, "Tu")
  36.         y = y + 30
  37.         TEXT(x, y, "We")
  38.     y = y + 30
  39.         TEXT(x, y, "Th")
  40.         y = y + 30
  41.         TEXT(x, y, "Fr")
  42.         y = y + 30
  43.         TEXT(x, y, "Sa")
  44.         y = y + 30
  45.         TEXT(x, y, "Su")
  46.  
  47.         y = y + 100
  48.     NEXT
  49.     x = l + 100: y = t -30
  50.   day=@MON(x, y, "January",day, 31)
  51.   dv = 28
  52.   IF v = 1 THEN dv = 29  ENDIF
  53.   day=@MON(x+340,y,"February",day,dv)
  54.   day=@MON(x+680,y,"March",day,31)
  55.   day=@MON(x+1020,y,"April",day,30)
  56.   day=@MON(x,y+280, "May",day, 31)
  57.   day=@MON(x+340,y+280,"June",day,30)
  58.   day=@MON(x+680,y+280,"July",day,31)
  59.   day=@MON(x+1020, y+280, "August",day, 31)
  60.   day=@MON(x,y+560,"September",day,30)
  61.   day=@MON(x+340,y+560,"October",day,31)
  62.   day=@MON(x+680,y+560,"November",day, 30)
  63.   day=@MON(x+1020,y+560,"December",day, 31)
  64.  
  65. RETURN
  66.  
  67. @MON(x1, y1, head, start, num)
  68.     FILL(1)
  69.     STYLE(1, 15)
  70.     TEXT(x1 + 60, y1, head)
  71.     days = 1
  72.     ln = start
  73.     y1 = y1 + 15
  74. #lab1
  75.     IF days > num THEN GOTO lab2  ENDIF
  76. #lab3
  77.     IF ln > 7 THEN GOTO lab4 ENDIF
  78.     IF days > num THEN GOTO lab2 ENDIF
  79.     @TEXT(x1, y1+30*ln, days)
  80.     days = days + 1
  81.     ln = ln + 1
  82.     GOTO lab3
  83. #lab4
  84.     x1 = x1 + 50
  85.     ln = 1
  86.     GOTO lab1
  87. #lab2
  88. RETURN ln
  89.  
  90. @TEXT(x2, y2, number)
  91.     TEXT(x2, y2, number)
  92.     COLOR(15)
  93.     shift = 37
  94.     IF number < 10 THEN shift = 20  ENDIF
  95.     RECTANGLE(x2+shift,y2-35,x2+160,y2+30)
  96.     COLOR(0)
  97. RETURN
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.